0 PRINT"[147]"TAB(10)"DIGITAL DECOMPOSITION[146]":POKE53280,0:POKE53281,0:POKE646,1
1 REM COMMODARES PROBLEM #34-3:
2 REM    DIGIT DECOMPOSITION
3 REM SOLUTION BY
4 REM    NECAH BUYUKDURA
5 REM
10 CT=208 : BF=842 :REM C-128 KBD BUFFER
20 IF DS$="" THEN CT=198 : BF=631 :REM   C-64 KBD BUFFER
30 POKE CT,0 : WAIT CT,1
40 D=PEEK(BF)-48 : PRINT D; : S=S+D
50 POKE CT,0 : WAIT CT,1
60 IF PEEK(BF)<>13 THEN PRINT "+";: GOTO 40
70 PRINT "=" S